home *** CD-ROM | disk | FTP | other *** search
/ Austin Powers - The Spy who Shagged Me / Screendragon: Austin Powers - The Spy who Shagged Me.iso / xtras / regread / regread.dir / 00002_Script_2 < prev    next >
Text File  |  1999-03-16  |  324b  |  11 lines
  1. on readAppPath aName
  2.   set appName = aName
  3.   
  4.   -- add ".exe" if omitted:
  5.   if chars(appName, length(appName) - 3, length(appName)) <> ".exe" then
  6.     set appName = appName & ".exe"
  7.   end if
  8.   
  9.   return ReadRegistryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & appName, "")
  10. end
  11.